


NT=2
CLEAR 
   1 .MONTHLY LOAN PAYMENT
   2 .G. HALLQUIST
   3 .REVISED BY R. TIETJENS
   4 :RETURN 
   5 CLEAR ;NT=1
  10 FOR A=0TO SZ÷2;@(A)=0;MU=A;NEXT A
  20 PRINT "READY
  30 K=KP;CLEAR ;GOTO 280
  40 FOR A=16TO 0STEP -1
  50 K=KP;TV=K
  60 IF K=45 @(17)=8;GOTO 50
  70 IF K=31GOTO 50
  80 IF K=13GOTO 110
  90 @(A)=K-48
 100 NEXT A;PRINT 
 110 N=36;GOSUB 150
 120 $+@(72),@(36),@(72)
 130 $-@(36),@(36),@(36)
 140 RETURN 
 150 X=A;FOR A=0TO 16
 160 IF @(A)=-2GOTO 180
 170 NEXT A;A=X;GOTO 220
 180 FOR B=N+7TO NSTEP -1
 190 A=A-1;@(B)=@(A)
 200 NEXT B
 210 A=A+8
 220 FOR B=N+8TO N+15
 230 A=A+1;IF A>16 @(B)=0;GOTO 250
 240 @(B)=@(A)
 250 NEXT B
 260 @(N+17)=@(17)
 270 PRINT ;FOR A=0TO 35;@(A)=0;NEXT A;RETURN 
 280 .BEGIN
 290 CY=0
 300 PRINT "LOAN AMOUNT?"
 310 GOSUB 40
 320 $+@(72),@(90),@(90)
 330 $-@(72),@(72),@(72)
 340 CLEAR ;CY=0
 350 INPUT "MONTHS?"M
 360 CY=0
 370 PRINT "INTEREST RATE?"
 380 GOSUB 40
 390 $+@(36),@(72),@(36)
 400 $-@(72),@(72),@(72)
 410 $+@(90),@(0),@(0)
 420 $-@(90),@(90),@(90)
 430 @(65)=1;@(64)=2;@(80)=1;@(26)=1
 440 $÷@(36),@(54),@(36)
 450 $+@(36),@(18),@(36)
 460 FOR K=1TO M;MU=30+K
 470 $×@(36),@(72),@(72);NEXT K
 480 $÷@(18),@(72),@(72)
 490 $-@(18),@(72),@(72)
 500 $-@(36),@(18),@(36)
 510 $÷@(72),@(36),@(72)
 520 $÷@(0),@(72),@(90)
 530 @(113)=5;$+@(90),@(108),@(90)
 540 FOR K=90TO 95;@(K)=0;NEXT K
 550 CLEAR ;PRINT "LOAN AMOUNT= ",
 560 $×@(0),@(18),@(0)
 570 A=13;B=8;GOSUB 750
 580 $×@(36),@(54),@(36)
 590 PRINT ;PRINT "INTEREST RATE= ",
 600 TV=32
 610 IF @(45) TV=@(45)
 620 FOR Y=44TO 41STEP -1;TV=@(Y);IF Y=44TV=46
 630 NEXT Y;TV=37;PRINT 
 640 PRINT "NO. OF PAYMENTS= ",#5,M;PRINT 
 650 PRINT "MONTHLY PAYMENT= ",
 660 A=103;B=98;GOSUB 760
 670 TV=46;TV=@(97);TV=@(96);PRINT 
 680 K=M÷100;@(28)=K;M=M-K×100
 690 K=M÷10;@(27)=K;M=M-K×10;@(26)=M
 700 $×@(18),@(90),@(18)
 710 PRINT "TOTAL PAYMENTS= ",
 720 A=32;B=26;GOSUB 760
 730 TV=46;TV=@(25);TV=@(24)
 740 PRINT ;GOTO 10
 750 CX=18
 760 Z=1;FOR K=ATO BSTEP -1
 770 IF @(K)=48IF Z CX=CX+6;GOTO 790
 780 Z=0;TV=@(K)
 790 NEXT K
 800 RETURN 
 810 .END
:RETURN ;RUN 
>